<% id = CInt(Request.QueryString("id")) Set conn = Server.CreateObject("ADODB.Connection") sql = "Select * From Product Where ProID="&id conn.Open MM_connect set rs = conn.Execute(sql) catid = rs("CatID") subcatid = rs("SubCatID") proname = rs("ProName") procompany = rs("ProCompany") proimages = rs("ProImageS") proimagel = rs("ProImageL") proprice = rs("ProPrice") prodiscount = rs("ProDiscount") prodescription = rs("ProDescription") profeature = rs("ProFeature") prolink = rs("ProLink") rs.Close set rs = nothing sql = "Select CatName From Category Where CatID="&catid set rs = conn.Execute(sql) catname = rs("CatName") rs.Close set rs = nothing statuslink = ""&catname&"" If subcatid <> 0 Then sql = "Select SubCatName From SubCategory Where SubCatID="&subcatid set rs = conn.Execute(sql) subcatname = rs("SubCatName") rs.Close set rs = nothing statuslink = statuslink & " > "&subcatname&"" End If %>

Home > <%=statuslink%> <%=proname%> <% If Trim(proimagel) <> "" Then Response.Write("") Else Response.Write("") End If %> <% If prodiscount = 0 Then Response.Write("ราคา: "&FormatNumber(proprice)&" "&rate) Else Response.Write("ราคา: "&FormatNumber(proprice)&" "&rate&" ") Response.Write("ราคาพิเศษ: "&FormatNumber(prodiscount)&" "&rate) End If Response.Write(" ผู้ผลิต: "&procompany&" ") Response.Write(" รายละเอียด: "&prodescription&" ") If Len(Trim(profeature)) > 10 Then Response.Write(" คุณสมบัติพิเศษ: "&profeature&" ") End If If Len(Trim(prolink)) > 10 Then Response.Write(" เว็บไซต์ที่เกี่ยวข้อง: "&prolink&" ") End If %>

<% conn.Close set conn = nothing %>